# $Id: iq.tcl 1520 2008-10-17 17:16:09Z sergei $

namespace eval ::iq {
    variable options

    custom::defgroup IQ [::msgcat::mc "Info/Query options."] \
	-group Tkabber

    custom::defvar options(show_iq_requests) 0 \
        [::msgcat::mc "Show IQ requests in the status line."] \
	-group IQ \
	-type boolean

    custom::defvar options(shorten_iq_namespaces) 1 \
        [::msgcat::mc "Strip leading \"http://jabber.org/protocol/\"\
		       from IQ namespaces in the status line."] \
	-group IQ \
	-type boolean
}

proc client:iq {xlib from type queries args} {
    debugmsg iq "$xlib $from $type $queries $args"

    eval [list ::iq::process $xlib $from $type $queries] $args
}

proc ::iq::process {xlib from type queries args} {
    variable options

    if {$type != "set" && $type != "get"} return

    ::xmpp::xml::split [lindex $queries 0] tag xmlns attrs cdata subels

    if {$options(show_iq_requests) && \
	    ($from != "" && \
	    !([::xmpp::jid::equal $from [connection_server $xlib]] || \
	      [::xmpp::jid::equal $from [connection_bare_jid $xlib]] || \
	      [::xmpp::jid::equal $from [connection_jid $xlib]]))} {

	set xmlns_short $xmlns
	if {$options(shorten_iq_namespaces)} {
	    regexp "^http://jabber.org/protocol/(.*)" $xmlns -> xmlns
	}

	set_status [::msgcat::mc "%s request from %s" $xmlns $from]
    }
}

plugins::load [file join tplugins iq]

